home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Games / Xconq 7.0d16 / lib / duel.g < prev    next >
Encoding:
Text File  |  1993-12-20  |  681 b   |  54 lines  |  [TEXT/MPS ]
  1. (game-module "duel"
  2.   (title "The Duel")
  3.   (blurb "Tanks, one-on-one.")
  4.   (base-module "tank")
  5.   (variants
  6.    (see-all true)
  7.    ("More Tanks" eval (add u* start-with 1))
  8.    ) 
  9. )
  10.  
  11. (area 20 20)
  12.  
  13. (area (terrain (by-name "+" plains)
  14.   "20+"
  15.   "20+"
  16.   "20+"
  17.   "20+"
  18.   "20+"
  19.   "20+"
  20.   "20+"
  21.   "20+"
  22.   "20+"
  23.   "20+"
  24.   "20+"
  25.   "20+"
  26.   "20+"
  27.   "20+"
  28.   "20+"
  29.   "20+"
  30.   "20+"
  31.   "20+"
  32.   "20+"
  33.   "20+"
  34. ))
  35.  
  36. ;; Limit to two players only.
  37.  
  38. (set sides-min 2)
  39. (set sides-max 2)
  40.  
  41. ;; Two sides, no special properties needed (?).
  42.  
  43. (side 1)
  44.  
  45. (side 2)
  46.  
  47. ;; Two tanks, one for each side, at predetermined locations.
  48.  
  49. (tank 10  7 1)
  50.  
  51. (tank 10 13 2)
  52.  
  53. (scorekeeper #|(when after-event)|# (do last-side-wins))
  54.